Public Class RecordsFRM
    Public HasSet As Boolean = False
    Public Num As Integer = 1
    Public Alpha As Integer = 0
    Public count As Integer = 0
    Public bit As Bitmap
    Private Sub RecordsFRM_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Dim rect As New Rectangle(0, 0, Me.Width, Me.Height)
        Dim b1 As New LinearGradientBrush(rect, Color.Black, Color.White, LinearGradientMode.BackwardDiagonal)
        Dim a As New ColorBlend
        Dim bmp2 As New Bitmap(pb1.Width, pb1.Height)
        For x = 0 To bmp2.Width - 1
            For y = 0 To bmp2.Height - 1
                bmp2.SetPixel(x, y, Color.Yellow)
            Next
        Next
        bmp2 = ReflectionLib.CreateFade(bmp2, 25)
        bmp2 = ReflectionLib.ApplyReflection(bmp2, 200, 5, 200, 25)
        pb1.Width = pb1.Width - 50
        pb1.Height = pb1.Height - 50
        pb1.Location = New Point(pb1.Location.X + 25, pb1.Location.Y + 25)
        Dim bmp As New Bitmap(Me.Width, Me.Height)
        Dim graph As Graphics = Graphics.FromImage(bmp)
        a.Colors = New Color() {Color.ForestGreen, Color.LightSteelBlue, Color.Yellow, Color.Aqua, Color.Red, Color.Orange}
        a.Positions = New Single() {0.0, 0.2, 0.5, 0.7, 0.85, 1.0}
        b1.InterpolationColors = a

        graph.FillRectangle(b1, rect)
        graph.DrawImage(bmp2, New Point(pb1.Location.X - 25, pb1.Location.Y - 25))

        bit = bmp2
        Me.BackgroundImage = bmp
        pb1.BackColor = Color.Yellow
    End Sub


    Private Sub MoveTMR_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MoveTMR.Tick
        pb1.Visible = False
        If Alpha >= 255 Then
            Alpha = 255
            count = count + 1
            If count = 100 Then
                Alpha = 0
                count = 0
                Num = Num + 1
                If Num = 6 Then
                    Num = 1
                End If
            End If
        End If
        Dim str As String = ""
        If Num = 1 Then
            str = Num & ". " & My.Settings.Rec1 & " - " & My.Settings.Record1 & "%"
        ElseIf Num = 2 Then
            str = Num & ". " & My.Settings.Rec2 & " - " & My.Settings.Record2 & "%"
        ElseIf Num = 3 Then
            str = Num & ". " & My.Settings.Rec3 & " - " & My.Settings.Record3 & "%"
        ElseIf Num = 4 Then
            str = Num & ". " & My.Settings.Rec4 & " - " & My.Settings.Record4 & "%"
        Else ' Num = 5 Then
            str = Num & ". " & My.Settings.Rec5 & " - " & My.Settings.Record5 & "%"
        End If
        lbl1.Visible = False

        lbl1.ForeColor = Color.FromArgb(Alpha, lbl1.ForeColor.R, lbl1.ForeColor.G, lbl1.ForeColor.B)
        lbl1.Text = str
        Dim graph As Graphics = Graphics.FromImage(bit)
        ' Dim br As New SolidBrush(Color.FromArgb(255, Color.DarkGoldenrod))
        Dim br As New SolidBrush(Color.DarkGoldenrod)
        graph.DrawString(str, lbl1.Font, br, Me.Width / 2 - lbl1.Width / 2, Me.Height / 2 - lbl1.Height / 2)
        Dim graph2 As Graphics = Graphics.FromImage(Me.BackgroundImage)
        graph2.DrawImage(bit, New Point(pb1.Location.X - 25, pb1.Location.Y - 25))
        pb1.BackColor = Color.Transparent
        'Me.BackgroundImage = bit
        'pb1.BackColor = Color.FromArgb(255 - Alpha, Color.Yellow)
        Alpha = Alpha + 1
    End Sub
End Class